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14- BASRTL.SRC SBASPOS..B32: 
MODULE BASSPOS ( ! Find the position of a substrin 
ee = '1-005' ' File: BAS sPos B32 " 

BEGIN 
PITITITILILILI LILI LLL LILI LTT Til Tiiiiitiiiiiiiiiiiiti Tt 
'® 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
- ALL RIGHTS RESERVED. * 
: ® 
'® THIS SOFTWARE rs FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF HE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
~ TRANSFERRED. * 
'@ ® 
'‘® THE gt be IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORAT {DN * 
'@ ® 
's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
ie * 

* 
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++ 

FACILITY: String support Library 

| ABSTRACT: This module takes 2 input strings of any class and dtype 
and returns the position of the substring in the main string 
starting at an input position 

i ENVIRONMENT: User mode, AST level or not or mixed 

i AUTHOR: R. Will, CREATION DATE: 10-Mar-79 

i MODIFIED BY: 


i R, will, Neleee on VERSION 01 


! 01 - ori 
! 1-002 = Fix SS with starting pos > searched string, length. RW 14-Jul-79 
| 338 correc 3 typo ue + : 002. JBS 25-JUL 


—— 
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wr 
‘ee 


Make POS a with DEC BASIC Standard Proposal. RW 23 ag 


CALL STRS. ELETE THIS MODULE WHEN COMPILER CALLS STRS. NOV-79 


'<BLF /PAGE> 
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SWITCHES: 


SWITCHES ADDRESSING_MODE 


' 
! LINKAGES: 


; TABLE OF CONTENTS: 
FORWARD ROUTINE 
BAS$POS; 


INCLUDE FILES: 


REQUIRE "RTLIN:RTLPSECT’; 


i MACROS: 
i EQUATED SYMBOLS: 


i] 

i] 

' 

4 

i] 

1 

i 

i PSECT DECLARATIONS 
DECLARE _PSECTS (BAS); 
OWN STORAGE: 

' 

' 

t 


i EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
STRSPOSITION; 


F 9 
ak a b+ 90: 38:36 AX=-11 Bliss-32 V4.0-<74 
14-Sep-1984 11:56:26 BASRTL.SRCJBASPOS .B32; 


= GENERAL, NONEXTERNAL = WORD_RELATIVE); 


! find substring position 


! Declare PSECTS code 


! do find 


c—-- 


BASSPOS 
1-00 
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PROPIPIPONPPINYNINININININPININININININPININININININININININININ 2 2 OO OO ee 
WRIPININPINININININIDN 2 2 9 OO SS | “DOOD QOCOCOOCOOOODOOOOOOWOW 


SODNAMNESWN $9 ODNAU EWN $9 OD NAVE WN SO ODNOU SWI O00 


ee a ee a a a a et = 8“ = 


, START_POS 


'e4 


dtype and class and 


i FORMAL PARAMETERS: 
SRC_DESC.rt.dx 
SUB-DESC.rt.dx 
START_POS.rl.v 
i IMPLICIT INPUTS: 
NONE 

i IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


FIND_POS.wlu.v 
SIDE EFFECTS: 
NONE 
BEGIN 
MAP SRC_DESC : REF BLOCK 
SUB_DESC : REF BLOCK 


oC 
7E 04 
000000006 00 


GLOBAL ROUTINE BASSPOS (SRC_DESC, 


— STRSPOSITION (SRC_DESC (0,0,0,0), Sus DESC CO 


=] AX-11 Bliss-32 eh el Od 


4 00:58:36 
5 84 9:38:38 BASRTL.SRCJBASPOS .B32; 
goser int r of string to search 
V 


escriptor of string to find 
alue of position to start search 


! FUNCTIONAL DESCRIPTION: This routine takes two source strings of any 
finds the position of the substring in the 
source string starting at the input starting position. 
returns the position of the substring in the source string. 


The routine 


pointer to descriptor of string to be searched 
pointer to descriptor of string to fin 
value of position in source to begin search 


value of start position of substr in src strng 


8,BYTE] e 
8,BYTEI; 


0,0,0], START_POS); 
nd of BASS$POS 
TITLE BASSPOS 
“IDENT \1-005\ 
.EXTRN STRSPOSITION 
.PSECT _BASSCODE,NOWRT, SHR, PIC,2 


0000 00000 .ENTRY BASSPOS, Save nothing 
AC 9F 9008 PUSHAB START_P 
AC 7D 0000 MOVO SRC_DESC, -(SP) 
03 FB 00009 CALLS #3, ~STRSPOSITION 
04 00010 RET 


Page 


= = 


- 
¥865°° IE8S0c1986 SP:GB:38 YASH Ob SGRE UE 8304? 


; Routine Size: 17 bytes, Routine Base: _BASSCODE + 0000 


; #139 ;-¥ 

; 140 § 1 END !‘End of module 

s 14) 1 

3 142 0234 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: _BASSCODE 17 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: COMMAND QUALIFIERS 

H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASPOS/OBJ=0BJ$:BASPOS MSRC$:BASPOS/UPDATE=(ENH$:BASPOS) 
Size: 17 code + 2 data bytes 
Run Time: 00:01.7 


Elapsed Time: 00:03. 
Lines/CPU Min: 407 
Nei hk ge 23353 

Y Used: 19 pages 
ome ation enesten 
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